﻿Imports DevExpress.XtraGrid.Menu
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.Utils.Menu
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraGrid.Localization
Imports BUS

Public Class ucTonKhoTongHop

    Private Sub ucTonKhoTongHop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GridView1.SetRowExpanded(-1, True)

        Dim dt As DataTable
        dt = KhoHangBUS.LoadBangKhoHang
        cbbKhoHang.Properties.DataSource = dt
        cbbKhoHang.Properties.DisplayMember = "TenKhoHang"
        cbbKhoHang.Properties.ValueMember = "MaKhoHang"

        'Tạo một datarow mới
        Dim dr As DataRow
        dr = dt.NewRow 'Làm cho hàng đó có cấu trúc giống như bảng dt
        dr("TenKhoHang") = "(Tất cả)" 'Gán các giá trị trống cho hàng đó
        dr("MaKhoHang") = "All"
        dt.Rows.InsertAt(dr, 0) 'Thêm hàng đó vào vị trí đầu tiên của ComboBox

        cbbKhoHang.EditValue = "All"

        Dim dtTonKho As DataTable = TonKhoBUS.LoadHangTonKho
        dgvTonKho.DataSource = dtTonKho
    End Sub

    Private Sub cbbKhoHang_EditValueChanged(sender As Object, e As EventArgs) Handles cbbKhoHang.EditValueChanged
        If cbbKhoHang.EditValue.ToString = "All" Then
            dgvTonKho.DataSource = TonKhoBUS.LoadHangTonKho
        Else
            Dim maKhoHang = cbbKhoHang.EditValue.ToString
            Dim dt As New DataTable
            dt = TonKhoBUS.LoadBangKhoHangTheoMa(maKhoHang)
            dgvTonKho.DataSource = dt
        End If
    End Sub
End Class
